unit UParam;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Buttons, Spin;

type
  TParametros = class(TForm)
    lblEpocas: TLabel;
    lblNeuroniosCamada: TLabel;
    cxNeuronios: TSpinEdit;
    cxNEpocas: TSpinEdit;
    cxeAprendizagem: TSpinEdit;
    lblTxAprendizagem: TLabel;
    cxInercia: TSpinEdit;
    lblTxInercia: TLabel;
    cxArquivo: TEdit;
    lblArquivo: TLabel;
    btnOk: TBitBtn;
    btnCancelar: TBitBtn;
    Panel1: TPanel;
    procedure FormActivate(Sender: TObject);
    procedure btnOkClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Parametros: TParametros;

implementation

uses UOCR;

{$R *.DFM}

procedure TParametros.FormActivate(Sender: TObject);
begin
   seNEpocas.Value := FOCR.NEpocas;
   seNeuronios.Value := FOCR.NeuroniosOcultos;
   seAprendizagem.Value := Round(100 * (FOCR.Aprendizagem));
   seInercia.Value := Round(100 * (FOCR.Inercia));
   edArquivo.Text := FOCR.Conhecimento;
end;

procedure TParametros.btnOkClick(Sender: TObject);
begin
   with FOCR do
   begin
      NEpocas := seNEpocas.Value;
      NeuroniosOcultos := seNeuronios.Value;
      Aprendizagem := seAprendizagem.Value / 100;
      Inercia := seInercia.Value / 100;
      Conhecimento := edArquivo.Text;
   end;
end;

end.
